BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/Hyper/F/FilmPro.cpt/Locations/background_2572.txt

Text File | 1988-04-17 | 20.2 KB | 954 lines

-- background: 2572 from stack: in
-- bmap block id: 4064
-- flags: 4000
-- background id: 0
-- name: Locations Background
----- HyperTalk script -----
on opencard
  tabkey
end opencard

on closestack
  if the freesize of this stack > 0.15 * the size of this stack then
    set cursor to 4
    domenu "compact stack"
  end if
end closestack




-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=254 top=25 right=58 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Keywords
----- HyperTalk script -----
on mouseUp
  play "harpsichord"
  show background field "hidden keywords"
  answer "New Keywords will replace old ones" with "Cancel" or "Okay"
  if it is "okay" then
    ask "Enter Keywords for Location"
    put it into background field "hidden keywords"
  end if
  hide background field "hidden keywords"


end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=305 top=27 right=56 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: find
----- HyperTalk script -----
on mouseUp
  play harpsichord
  domenu "find..."
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=26 right=57 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  play "harpsichord"
  answer "Sort all cards according to:" with "Location" or  "Date" or "Cancel"
  if it is "Location"
  then sort by first word of first line of field 7
else if it is "Date"
then sort datetime by first word in field 3



end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=431 top=29 right=56 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 10610 / 10610
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial
----- HyperTalk script -----
on mouseUp
  dial line one of field "phone" with modem "ATDT"

end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=245 top=311 right=334 bottom=271
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect scroll right fast to black
  visual effect scroll right fast
  go to prev card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=277 top=311 right=334 bottom=302
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect scroll left fast to black
  visual effect scroll left fast
  go to next card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=212 top=28 right=56 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Button Help
----- HyperTalk script -----

on mouseup
  push this card
  set cursor to 4
  visual effect barn door open
  go to stack "FilmPro Help"
end mouseup




-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=466 top=25 right=58 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  play harpsichord
  answer "Proceed with Printing?" with "This Card" or "This Stack" or "Cancel"
  if it is "This Card" then
    ask "Name of Production Company or Unit"
    if it is empty then exit mouseup
    else if it is not empty then
      put it into bkgnd field "print title"
      set lockscreen to true
      set cursor to 4
      hide bkgnd button "print card"
      show bkgnd field "fix screen"
      show bkgnd field "hide left"
      show bkgnd field "hide top"
      show bkgnd field "hide right"
      show bkgnd field "hide bottom"
      hide bkgnd button "return"
      hide bkgnd button "prev"
      hide bkgnd button "next"
      show bkgnd field "print title"
      domenu "print card"
      hide bkgnd field "fix screen"
      hide bkgnd field "hide left"
      hide bkgnd field "hide top"
      hide bkgnd field "hide right"
      hide bkgnd field "hide bottom"
      show bkgnd button "return"
      show bkgnd button "prev"
      show bkgnd button "next"
      hide bkgnd field "print title"
      show bkgnd button "print card"
      put empty into bkgnd field "print title"
      set lockscreen to false
    else if it is "This Stack" then domenu "Print stack..."
  end if


end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=215 right=255 bottom=40
-- title width / last selected line: 65535
-- icon id / first selected line: -15743 / 49793
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Crews Stack Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve to white
  visual effect dissolve
  go to stack crews
end mouseUp




-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=260 right=295 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 9761 / 9761
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Locations Stack Button
----- HyperTalk script -----
on mouseUp
  beep
  answer "You are already in the Locations Stack."
end mouseUp




-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=1 top=61 right=98 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 2002 / 2002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Client Stack Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve to white
  visual effect dissolve
  go to stack Clients
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=50 top=305 right=335 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect wipe left fast to black
  visual effect wipe right fast
  pop card
end mouseUp




-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=7 top=183 right=212 bottom=34
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Production Memos
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to last card in stack Memos

end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=3 top=140 right=177 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 18814 / 18814
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Call Sheets
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to last card in stack Call Sheets

end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=3 top=106 right=136 bottom=41
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: jobs stack button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to last card in stack Job File

end mouseUp



-- part 20 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=106 top=71 right=86 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Job No.


-- part 21 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=99 top=86 right=102 bottom=208
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Scene


-- part 22 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=91 top=99 right=116 bottom=208
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Date


-- part 23 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=116 top=114 right=131 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Director


-- part 24 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=110 top=128 right=143 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Camera


-- part 25 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=113 top=142 right=158 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Sound


-- part 27 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=283 top=60 right=117 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Name and Address


-- part 31 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=283 top=117 right=133 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Phone


-- part 32 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=314 top=131 right=147 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Arrive


-- part 33 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=436 top=130 right=148 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Wrap


-- part 34 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=283 top=145 right=161 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Security
----- HyperTalk script -----





-- part 35 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=50 top=170 right=219 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Directions


-- part 36 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=152 top=225 right=241 bottom=228
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Loading Ramp


-- part 37 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=273 top=225 right=240 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Floor


-- part 38 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=380 top=225 right=242 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Noise


-- part 39 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=97 top=239 right=255 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Props Needed


-- part 40 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=179 top=253 right=269 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Existing Lighting:


-- part 41 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=165 top=267 right=283 bottom=241
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Available Amps


-- part 42 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=316 top=266 right=282 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Cable Run


-- part 43 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=430 top=265 right=281 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Generator:


-- part 44 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=113 top=279 right=296 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Special Effects:


-- part 45 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=113 top=293 right=310 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Remarks


-- part 50 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=1 top=23 right=55 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: filmpro
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve to white
  visual effect dissolve
  go to card id 2844 of stack "FilmPro "
end mouseUp




-- part 51 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=4 top=299 right=333 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Application
----- HyperTalk script -----
on mouseUp
  play harpsichord
  ask "Which application would you like to open?"
  if it is not empty then
    suspend
    open it
  else if it is empty then
    exit mouseup
  end if

end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=390 top=23 right=59 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 1004 / 1004
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Letter
----- HyperTalk script -----
on mouseup
  get the loc of bkgnd field "sound"
  click at it
  tabkey
  if bkgnd field "name and address" is empty then
    play harpsichord
    answer "There is no Address to copy."
    exit mouseup
  end if
  domenu "copy text"
  play harpsichord
  ask "Which Word Processing Program?"
  if it is not empty then
    open it
  else if it is empty then
    exit mouseup
  end if
end mouseup



-- part 47 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=208 top=24 right=58 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hidden keywords


-- part 52 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=0 top=0 right=342 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hide left


-- part 53 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=44 top=0 right=25 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hide top


-- part 54 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=500 top=22 right=336 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hide right


-- part 55 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=40 top=317 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hide bottom


-- part 56 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=206 top=24 right=58 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 24
-- part name: print title


-- part 57 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: fix screen
----- HyperTalk script -----
on mousewithin

  hide bkgnd field "fix screen"
  hide bkgnd field "hide left"
  hide bkgnd field "hide top"
  hide bkgnd field "hide right"
  hide bkgnd field "hide bottom"
  show bkgnd button "return"
  show bkgnd button "prev"
  show bkgnd button "next"
  show bkgnd button "print card"
  hide bkgnd field "print title"
  put empty into bkgnd field "print title"
end mousewithin


-- part 58 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=114 top=311 right=333 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Card
----- HyperTalk script -----
on mouseUp
  ask "Name of Production Company or Unit"
  if it is empty then exit mouseup
  else if it is not empty then
    put it into bkgnd field "print title"
    set lockscreen to true
    set cursor to 4
    hide bkgnd button "print card"
    show bkgnd field "fix screen"
    show bkgnd field "hide left"
    show bkgnd field "hide top"
    show bkgnd field "hide right"
    show bkgnd field "hide bottom"
    hide bkgnd button "return"
    hide bkgnd button "prev"
    hide bkgnd button "next"
    show bkgnd field "print title"
    domenu "print card"
    hide bkgnd field "fix screen"
    hide bkgnd field "hide left"
    hide bkgnd field "hide top"
    hide bkgnd field "hide right"
    hide bkgnd field "hide bottom"
    show bkgnd button "return"
    show bkgnd button "prev"
    show bkgnd button "next"
    hide bkgnd field "print title"
    show bkgnd button "print card"
    put empty into bkgnd field "print title"
    set lockscreen to false
  end if
end mouseUp